program programa;
type novotipo = integer;
var a:novotipo;
procedure proc1();
    var x:integer;
begin
end;
begin	
	a:=5
end .
